home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Garbo
/
Garbo.cdr
/
mac
/
hypercrd
/
xcmd
/
prntrprt.sit
/
PrintReport.sit
/
PrintReport Demo
/
background_2585.txt
< prev
next >
Wrap
Text File
|
1989-12-18
|
6KB
|
286 lines
-- background: 2585 from stack: in
-- bmap block id: 3174
-- flags: 4000
-- background id: 0
-- name: Card
----- HyperTalk script -----
on openBackground
push recent card
end openBackground
-- part 2 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=39 top=48 right=72 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Name
-- part 15 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=18 top=240 right=281 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
visual effect iris open
go Home
end mouseUp
-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=39 top=73 right=110 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Address
-- part 17 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=177 top=240 right=281 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
show all cards
end mouseUp
-- part 18 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=71 top=240 right=281 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: dial phone
----- HyperTalk script -----
on mouseUp
get the selection
if it is empty then get the message
if it is empty then ask "Dial what number?"
if it is not empty then
push this card
visual effect zoom open
go to stack "Phone"
dial it
pop card
end if
end mouseUp
-- part 29 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=77 top=114 right=137 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone
-- part 20 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=126 top=240 right=281 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calendar
----- HyperTalk script -----
on mouseUp
set lockScreen to true
go stack "Datebook"
goWeekly the seconds
set lockScreen to false
end mouseUp
-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=200 right=225 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
visual effect wipe right
go to previous card of background "Card"
end mouseUp
-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=176 top=200 right=225 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
visual effect wipe left
go to next card of background "Card"
end mouseUp
-- part 30 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=38 top=142 right=193 bottom=321
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Work Info
-- part 10 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=355 top=83 right=188 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Notes
-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=291 top=198 right=226 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
visual effect iris close
pop card
end mouseUp
-- part 27 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=229 top=241 right=282 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
answer "Sort all cards of this stack according to:" with "First Name" or "Last Name" or "Cancel"
if it is "First Name"
then sort by first word of first line of field "Name"
else if it is "Last Name"
then sort by last word of first line of field "Name"
end mouseUp
-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=354 top=248 right=328 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Important Dates
-- part 31 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=282 top=242 right=282 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
push card
go to first card of background "Report"
end mouseUp